############################################################################################
#                        Fonction de connexion à la base de données                        #
############################################################################################

# Fonction permettant la connection à la base de données
sub connection{
  my $base='sgbd_foyer';# Nom de la base de données
  my $host='localhost';# Serveur
  my $login='root';# Identifiant
  my $pwd='';# Mot de passe
  my $socket='';# Socket dans le cas où l'OS est Mac
  if ($Config{osname} eq "darwin") {# MacOS + MAMP
    $pwd='root';
    $socket=';mysql_socket=/Applications/MAMP/tmp/mysql/mysql.sock';
  }
  $dbd = DBI->connect("dbi:mysql:dbname=$base;host=$host$socket", $login, $pwd)
    or die 'Impossible de se connecter à la base de données : '.DBI::errstr;
  $dbd->{'mysql_enable_utf8'} = 1;
  $dbd->do('SET NAMES utf8');
}

1;